home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 13 / 64er_Magazin_Sonderheft_13_19xx_Markt__Technik_de_Side_A.d64 / 40k-listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  972b  |  32 lines
  1. 100 goto300
  2. 110 :
  3. 120 :   ******************************
  4. 130 :   *                            *
  5. 140 :   * demoprogramm zum kopieren  *
  6. 150 :   * des speicherbereichs $c000 *
  7. 160 :   * -$ffff nach $8000-$bfff in *
  8. 170 :   * der floppy 1541            *
  9. 180 :   *                            *
  10. 190 :   ******************************
  11. 200 :   *                            *
  12. 210 :   * von                        *
  13. 220 :   *                            *
  14. 230 :   * dieter priess              *
  15. 240 :   * schuetzenstr. 35           *
  16. 250 :   * 2400 luebeck 1             *
  17. 260 :   * tel.: 0451/863222          *
  18. 270 :   *                            *
  19. 280 :   ******************************
  20. 290 :
  21. 300 fori=0to32:readx:s=s+x:nexti:ifs<>5511thenprint"[198]ehler in [196]atas !":end
  22. 310 restore
  23. 320 open1,8,15
  24. 330 fori=0to32
  25. 340 readx
  26. 350 print#1,"m-w"chr$(i)chr$(5)chr$(1)chr$(x)
  27. 360 nexti
  28. 370 print#1,"u3"
  29. 380 close1
  30. 390 data120,160,0,162,192,169,128,132,192,132,194,134,193,133,195,162,64
  31. 400 data177,192,145,194,200,208,249,230,193,230,195,202,208,242,88,96
  32.